home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
attport
/
init_kcn.lsp
< prev
next >
Wrap
Lisp/Scheme
|
1986-03-11
|
792b
|
20 lines
(in-package "COMPILER")
(in-package "SYSTEM")
(in-package "USER")
(in-package "LISP")
(in-package "USER")
(progn (allocate 'cons 90) (system:init-system) (gbc t)
(setq system::*old-top-level* (symbol-function 'system:top-level))
(defun system::kcl-top-level nil
(when (> (system:argc) 1)
(setq system:*system-directory* (system:argv 1)))
(format t "KCl (Kyoto Common Lisp) ~A~%" "Feburary 13, 1986")
(in-package 'system::user) (funcall system::*old-top-level*))
(defun lisp-implementation-version nil "Feburary 13, 1986")
(setq *modules* nil) (gbc t) (system:reset-gbc-count)
(allocate 'cons 200)
(defun system:top-level nil (system::kcl-top-level))
(system:save-system "saved_kcn") (bye)
(defun system:top-level nil (system::kcl-top-level))
(save "saved_kcn") (bye))